www.gusucode.com > 茶都拼客网全功能版 8 > 茶都拼客网全功能版 8.8源码程序/teasdxmccom/茶都拼客网V8.8（全功能，无限制，完全开源）/Ku_type/User/Put_pk.asp
<div align="center">
<table cellpadding="0" cellspacing="1" width="730" bgcolor="#F5F5F5">
<tr>
<td height="128" bgcolor="#FFFFFF">
<div align="center">
<table border="0" width="99%" cellpadding="0" cellspacing="0" height="506">
<tr>
<td height="506" width="100%">
<form name="myform" action="Deal_user.asp?action=add_info" method="post">
<div align="center">
<table width="100%" height="624" bgcolor="#ECECE3" cellpadding="0" cellspacing="1">
<tr>
<td width="12%" bgcolor="#FFFFFF" height="30"><div align="right">标
题：</div></td>
<td bgcolor="#FFFFFF" height="27" width="88%">
<input name="biaoti" type="text" size="67" maxlength="35" >
<font color="red">*</font> </td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="30"><div align="right">拼客分类：</div></td>
<td bgcolor="#FFFFFF" height="28" width="88%"> <%
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from Gu_pkind"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加分类。"
response.end
else
%> <SELECT name="pkind" size="1">
<%do while not rsclass.eof
%><OPTION value="<%=trim(rsclass("id"))%>"><%=trim(left(rsclass("name"),6))%></OPTION>
<%
rsclass.movenext
loop
end if
rsclass.close
%></SELECT> <font color="red">*</font>
</td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="30">
<p align="right">分类选择：</td>
<td bgcolor="#FFFFFF" width="88%"> <%
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from Gu_pgq"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加分类。"
response.end
else
%> <SELECT name="pgq" size="1">
<%do while not rsclass.eof
%><OPTION value="<%=trim(rsclass("id"))%>"><%=trim(left(rsclass("name"),6))%></OPTION>
<%
rsclass.movenext
loop
end if
rsclass.close
%></SELECT> <font color="red">*</font>
</td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="30">
<p align="right">地区选择：</td>
<td bgcolor="#FFFFFF" width="88%"><%
dim rsclass,sqlclass
set rsclass=server.createobject("adodb.recordset")
sqlclass = "select * from Gu_qu"
rsclass.open sqlclass,conn,1,1
%><SCRIPT language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count = 0
do while not rsclass.eof
%>
subcat[<%=count%>] = new Array("<%= trim(rsclass("class2"))%>","<%= trim(rsclass("class1"))%>","<%= trim(rsclass("id"))%>");
<%
count = count + 1
rsclass.movenext
loop
rsclass.close
%>
onecount=<%=count%>;
function changelocation(locationid)
{
document.myform.class2.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.myform.class2.options[document.myform.class2.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</SCRIPT><%
sqlclass = "select * from Gu_shi"
rsclass.open sqlclass,conn,1,1
if rsclass.eof and rsclass.bof then
response.write "请先添加分类。"
response.end
else
%> <SELECT name="class1" onChange="changelocation(document.myform.class1.options[document.myform.class1.selectedIndex].value)" size="1">
<OPTION selected value=>地级市</OPTION>
<%do while not rsclass.eof
%><OPTION value="<%=trim(rsclass("id"))%>"><%=trim(left(rsclass("class1"),5))%></OPTION>
<%
rsclass.movenext
loop
end if
rsclass.close
%></SELECT>
<SELECT name="class2">
<OPTION selected value=>区县</OPTION>
</SELECT>
<font color="red">*</font></td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="30"><div align="right">有效期：</div></td>
<td bgcolor="#FFFFFF" width="88%" height="19"> <select name="yxq">
<option value="1">1天</option>
<option value="2">2天</option>
<option value="3">3天</option>
<option value="7">7天</option>
<option value="10">10天</option>
<option value="15">15天</option>
<option value="20">20天</option>
<option value="30">30天</option>
<option value="45">45天</option>
<option value="30">一个月</option>
<option value="90">三个月</option>
</select><font color="red">*</font> </td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="163"><div align="right">内
容：</div></td>
<td bgcolor="#FFFFFF" height="163" width="88%">
<textarea name="neirong" cols="70" rows="11"></textarea>
<font color="red">*</font> </td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="36">
<p align="right">相关图片：</td>
<td bgcolor="#FFFFFF" height="36" width="88%"> <input name="pic" type="text" id="pic" size="36" >
(非VIP会员可以直接填写图片地址)</td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="35">
<p align="right">上传图片：</td>
<td bgcolor="#FFFFFF" height="35" width="88%"> <%if rshy("uservip")=1 then%><iframe frameborder=0 width=290 height=25 scrolling=no src="upload.asp?action=art"></iframe><%else%><font color="#FF0000">非本站VIP会员，不能使用上传功能！</font><%end if%></td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="43"><div align="right">发布人：</div></td>
<td bgcolor="#FFFFFF" height="43" width="88%">
<input name="fbr" type="text" size="35" maxlength="15" value="<%=rshy("username")%>" readonly>
<font color="red">*</font> (不可修改)</td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="36"><div align="right">联系人：</div></td>
<td bgcolor="#FFFFFF" height="36" width="88%">
<input name="lianxiren" type="text" size="35" maxlength="15">
<font color="red">*</font> </td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="32"><div align="right">联系电话：</div></td>
<td bgcolor="#FFFFFF" height="32" width="88%">
<input name="dianhua" type="text" size="35" maxlength="30" value="<%=rshy("tel")%>">
<font color="red">*</font> </td>
</tr>
<tr>
<td width="12%" bgcolor="#FFFFFF" height="34"><div align="right">联系QQ：</div></td>
<td bgcolor="#FFFFFF" height="34" width="88%">
<input name="qq" type="text" size="35" maxlength="11" value="<%=rshy("qq")%>">
</td>
</tr>
<tr>
<td width="12%" height="38" bgcolor="#FFFFFF">
<p align="right">联系E_mail：</td>
<td bgcolor="#FFFFFF" width="88%">
<input name="email" type="text" size="35" maxlength="20" value="<%=rshy("email")%>">
</td>
</tr>
<tr>
<td width="12%" height="32" bgcolor="#FFFFFF"><div align="right">联系地址：</div></td>
<td bgcolor="#FFFFFF" width="88%">
<input name="dizhi" type="text" size="56" maxlength="50" value="<%=rshy("address")%>">
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" height="42"><div align="center"><input type="submit" value="发布信息" >
<input type="reset" value="取消发布"></div></td>
</tr>
</table>
</div>
</form>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</div>